perm filename SYSIM.FAI[CMS,LCS]1 blob
sn#182662 filedate 1975-10-19 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00025 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00003 00002 TITLE SIMU
C00005 00003 BMI ←60
C00007 00004 BCC ←220
C00008 00005 CPYIM ←300
C00009 00006 ZWD: -1,,777400
C00012 00007 ERRO: OUTSTR [ASCIZ/ ???
C00014 00008 POTBL: HLRE MEM(DR)
C00016 00009 ZPAGE: PUSHJ P,IFTCH
C00018 00010 LDIM: PUSHJ P,IFTCH
C00020 00011 PUTCH: HRRZI MA,PONE(SP)
C00022 00012 ORA: OR A
C00023 00013 ADDER: TRZ PS,VBIT
C00024 00014 INSTBL:
C00027 00015 [ TRZ PS,CBIT
C00029 00016 [ PUSHJ P,@INSTBL+PUL
C00031 00017 [ PUSHJ P,PUL
C00032 00018 [ HRRZI B,VBIT
C00033 00019 [ PUSHJ P,@INSTBL+PUL
C00035 00020 [ TRO PS,IBIT
C00037 00021 [ HRRZI B,CBIT
C00039 00022 [ HRRZI (A)
C00041 00023 [ PUSHJ P,IFTCH
C00043 00024 [ TRZ PS,DBIT
C00045 00025 [ HRRZI B,ZBIT
C00046 ENDMK
C⊗;
TITLE SIMU
EXTERNAL $I
A←1 ↔ X←2 ↔ Y←3 ↔ SP←4 ↔ PS←5 ↔ PC←6
IR←7 ↔ B←←10 ↔ C←←11 ↔ D←←12
E←←13 ↔ DR←14 ↔ MA←15 ↔ P←17
CBIT←←1 ↔ ZBIT←←2 ↔ IBIT←←4 ↔ DBIT←←10
BRKBIT←←20 ↔ VBIT←←100 ↔ NBIT←←200
RSTV←177772 ↔ NMIV←177774 ↔ IRQV←177776
PONE←←400 ↔ NEG1←←377 ↔ BNINE←←400
ZHW←777400 ↔ ZHW16←600000 ↔ IOBIT←200000
IOMSK←400000 ↔ ROMBIT←100000
BRK ←←0
ORAINX ←←1
ORAZ ←←5
ASLZ ←←6
PHP ←10
ORAIM ←11
ASLAC ←12
ORAAB ←15
ASLAB ←16
BPL ←20
ORAINY ←21
ORAZX ←25
ASLZX ←26
CLC ←30
ORAABY ←31
ORAABX ←35
ASLABX ←36
JSR ←40
ANDINX ←41
BITZ ←44
ANDZ ←45
ROLZ ←46
PLP ←50
ANDIM ←52
ROLAC ←53
BITAB ←54
ANDAB ←55
ROLAB ←56
BMI ←60
ANDINY ←61
ANDZX ←65
ROLZX ←66
SEC ←70
ANDABY ←71
ANDABX ←75
ROLABX ←76
RTI ←100
EORINX ←101
EORZ ←105
LSRZ ←106
PHA ←110
EORIM ←111
LSRAC ←112
JMPAB ←114
EORAB ←115
LSRAB ←116
BVC ←120
EORINY ←121
EORZX ←125
LSRZX ←126
CLI ←130
EORABY ←131
EORABX ←135
LSRABX ←136
RTS ←140
ADCINX ←141
ADCZ ←145
PLA ←150
ADCIM ←151
JMPIN ←154
ADCAB ←155
BVS ←160
ADCINY ←161
ADCZX ←165
SEI ←170
ADCABY ←171
ADCABX ←175
STAINX ←201
STYZ ←204
STAZ ←205
STXZ ←206
DEY ←210
TXA ←212
STYAB ←214
STAAB ←215
STXAB ←216
BCC ←220
STAINY ←221
STYZX ←224
STAZX ←225
STXZY ←226
TYA ←230
STAABY ←231
TXS ←232
STAABX ←235
LDYIM ←240
LDAINX ←241
LDXIM ←242
LDYZ ←244
LDAZ ←245
LDXZ ←246
TAY ←250
LDAIM ←251
TAX ←252
LDYAB ←254
LDAAB ←255
LDXAB ←256
BCS ←260
LDAINY ←261
LDYZX ←264
LDAZX ←265
LDXZY ←266
CLV ←270
LDAABY ←271
TSX ←272
LDYABX ←274
LDAABX ←275
LDXABY ←276
CPYIM ←300
CMPINX ←301
CPYZ ←304
CMPZ ←305
DECZ ←306
INY ←310
CMPIM ←311
DEX ←312
CPYAB ←314
CMPAB ←315
DECAB ←316
BNE ←320
CMPINX ←321
CMPZ ←324
SBCZ ←325
INCZ ←326
CLD ←330
CMPABY ←331
CMPABX ←335
DECABX ←336
CPXIM ←340
SBCINY ←341
CPXZ ←344
SBCZ ←345
INCZ ←346
INX ←350
SBCIM ←351
NOP ←352
CPXAB ←354
SBCAB ←355
INCAB ←356
BEQ ←360
SBCINY ←361
SBCZX ←365
INCZX ←366
SED ←370
SBCABY ←371
SBCABX ←375
INCABX ←376
ZWD: -1,,777400
ZWD16: -1,,600000
PDL: BLOCK 100
R: BYTE (7) 175,175,175,"O","A"
BYTE (7) 175,";","X",175,";"
BYTE (7) "Y",175,";","S","P"
BYTE (7) 175,";","P","S",175
BYTE (7) ";","P","C",175,";"
BYTE (7) 175,175,175,"C","I"
BYTE (7) "R",175,";"
SS: BYTE (7) "X","C","U","T","E"
BYTE (7) 175,"B",175,"P"
STAR: RESET
HRLZI MEM
HRRI MEM+1
SETOM MEM
BLT MEM+77777
MAP: MOVE P,[PDPO: IOWD 100,PDL]
SETZ D,
SETZ X,
PUSHJ P,MEMDF
MOVE D,[ROMBIT,,ROMBIT]
AOJ X,
PUSHJ P,MEMDF
MOVE D,[IOMSK,,IOMSK]
AOJ X,
PUSHJ P,MEMDF
ZRG: MOVE [1,,2]
SETZ A,
BLT PC
RST: MOVE P,PDPO
JSR $I
FETCH: PUSHJ P,IFTCH
HRRZI IR,(DR)
XCUTE: PUSHJ P,@INSTBL(IR)
JRST FETCH
STRTBL: [ASCIZ/
RAM BLOCK (ADR ∨ L:H) = /]
[ASCIZ/
ROM BLOCK (ADR ∨ L:H) = /]
[ASCIZ*
I/O BLOCK (ADR ∨ L:H) = *]
ERRO: OUTSTR [ASCIZ/ ???
/]
MEMDF: CLRBFI
OUTSTR @STRTBL(X)
INCHWL A
CAIN A,15
POPJ P,
PUSHJ P,INNUM
TDNE ZWD16
JRST ERRO
HRRZ DR,
INCHRS A
JRST ERRO
CAIN A,12
JRST ONEAD
PUSHJ P,INNUM
TDNE ZWD16
JRST ERRO
MKIT: HRRZI E,(DR)
LSH DR,-1
ADDI DR,MEM
HRRZ MA,
LSH MA,-1
CAILE DR,MEM(MA)
JRST ERRO
ANDI E,1
JUMPE E,EVEN
HRRM D,(DR)
CAIL DR,MEM(MA)
JRST MEMDF
AOJ DR,
EVEN: ANDI 1
JUMPN MOV
HLLM D,MEM(MA)
CAIL DR,MEM(MA)
JRST MEMDF
SOJ MA,
MOV: MOVEM D,(DR)
CAIL DR,MEM(MA)
JRST MEMDF
HRLI DR,(DR)
AOJ DR,
BLT DR,MEM(MA)
JRST MEMDF
ONEAD: HRRZI (DR)
JRST MKIT
INNUM: SETZ
CAIL A,60
CAILE A,67
POPJ P,
IMULI 10
ADDI -60(A)
INCHRS A
POPJ P,
JRST INNUM+1
POTBL: HLRE MEM(DR)
HRRE MEM(DR)
MTST: HRRZI D,(DR)
LSH DR,-1
ANDI D,1
XCT POTBL(D)
TRNE ZHW
SKIPL
POPJ P,
PUSHJ P,NRM
TDZ ZWD
POPJ P,
NRM: TRNE IOBIT
JRST ILMEM
IO: JSR $I
POPJ P,
ILMEM: JSR $I
POPJ P,
UDO: JSR $I
POPJ P,
WROM: JSR $I
JRST ROMCK+2
MFTCH: HRRZI DR,(MA)
PUSHJ P,MTST
TRZ ZHW
POPJ P,
IFTCH: HRRZI DR,(PC)
PUSHJ P,MTST
TRZ ZHW
HRRZ DR,
AOJ PC,
TRZ PC,ZHW16
POPJ P,
DPTBL: HRLM D,MEM(DR)
HRRM D,MEM(DR)
MEMDP: HRRZ D,
HRRZI DR,(MA)
LSH DR,-1
ANDI MA,1
XCT POTBL(MA)
TRNE ZHW
PUSHJ P,ROMCK
XCT DPTBL(MA)
POPJ P,
ROMCK: JUMPGE WROM
PUSHJ P,NRM
TRZ NEG1
OR D,
POPJ P,
AFTCH: PUSHJ P,IFTCH
HRRZI MA,(DR)
PUSHJ P,IFTCH
LSH 10
OR MA,
POPJ P,
ZPAGE: PUSHJ P,IFTCH
HRRZI MA,(DR)
PUSHJ P,MFTCH
POPJ P,
ZPX: PUSHJ P,IFTCH
HRRZI MA,(DR)
ADDI MA,(X)
TRZ MA,ZHW
PUSHJ P,MFTCH
POPJ P,
ZPY: PUSHJ P,IFTCH
HRRZI MA,(DR)
ADDI MA,(X)
TRZ MA,ZHW
PUSHJ P,MFTCH
POPJ P,
ABS: PUSHJ P,AFTCH
PUSHJ P,MFTCH
POPJ P,]
ABX: PUSHJ P,AFTCH
ADDI MA,(X)
TRZ MA,ZHW16
PUSHJ P,MFTCH
POPJ P,
ABY: PUSHJ P,AFTCH
ADDI MA,(Y)
TRZ MA,ZHW16
PUSHJ P,MFTCH
POPJ P,
INDX: PUSHJ P,IFTCH
ADDI (X)
TRZ ZHW
HRRZ MA,
PUSHJ P,MFTCH
HRRZ B,
AOJ MA,
PUSHJ P,MFTCH
LSH 10
OR B,
HRRZI MA,(B)
PUSHJ P,MFTCH
POPJ P,
INDY: PUSHJ P,ZPAGE
HRRZ B,
AOJ MA,
PUSHJ P,MFTCH
LSH 10
ADDI (B)
HRRZ MA,
PUSHJ P,MFTCH
POPJ P,]
LDIM: PUSHJ P,IFTCH
PUSHJ P,NZTST
POPJ P,
LDZ: PUSHJ P,ZPAGE
PUSHJ P,NZTST
POPJ P,
LDAB: PUSHJ P,ABS
PUSHJ P,NZTST
POPJ P,
LDABX: PUSHJ P,ABX
PUSHJ P,NZTST
POPJ P,
LDABY: PUSHJ P,ABY
PUSHJ P,NZTST
POPJ P,]
LDZX: PUSHJ P,ZPX
PUSHJ P,NZTST
POPJ P,
LDZY: PUSHJ P,ZPY
PUSHJ P,NZTST
POPJ P,
LDIX: PUSHJ P,INDX
PUSHJ P,NZTST
POPJ P,
LDIY: PUSHJ P,INDY
PUSHJ P,NZTST
POPJ P,
STZ: PUSHJ P,IFTCH
HRRZ MA,
HRRZI (B)
PUSHJ P,MEMDP
POPJ P,
STAB: PUSHJ P,AFTCH
HRRZI (B)
PUSHJ P,MEMDP
POPJ P,
STIX: PUSHJ P,INDX
HRRZI (B)
PUSHJ P,MEMDP
POPJ P,
STIY: PUSHJ P,INDY
HRRZI (B)
PUSHJ P,MEMDP
POPJ P,
STZX: PUSHJ P,ZPX
HRRZI (B)
PUSHJ P,MEMDP
POPJ P,
STZY: PUSHJ P,ZPY
HRRZI (B)
PUSHJ P,MEMDP
POPJ P,
STABX: PUSHJ P,ABX
HRRZI (B)
PUSHJ P,MEMDP
POPJ P,
STABY: PUSHJ P,ABY
HRRZI (B)
PUSHJ P,MEMDP
POPJ P,
PUTCH: HRRZI MA,PONE(SP)
PUSHJ P,MEMDP
SOSGE SP
HRRZI SP,NEG1
POPJ P,
PUL: AOJ SP,
TDZ SP,ZWD
HRRZI MA,PONE(SP)
PUSHJ P,MFTCH
POPJ P,
PUPC: PUSHJ P,IFTCH
HRRZI (PC)
LSH -10
PUSHJ P,PUTCH
HRRZI (PC)
PUSHJ P,PUTCH
POPJ P,
NZTST: TRZ PS,NBIT∨ZBIT
SKIPN
TROE PS,ZBIT
TRNN NBIT
POPJ P,
TRO PS,NBIT
POPJ P,
CNZTST: TRZ PS,CBIT
TDZE ZWD
TRO PS,CBIT
PUSHJ P,NZTST
POPJ P,
BIT: TRZ PS,NBIT∨VBIT∨ZBIT
TRNE NBIT
TRO PS,NBIT
TRNE VBIT
TRO PS,VBIT
ANDI (A)
SKIPN
TRO ZBIT
POPJ P,
BRNCH: TRNE DR,NBIT
TDO DR,ZWD
ADD PC,DR
TDZ ZWD16
POPJ P,
BRT: PUSHJ P,IFTCH
TRNE PS,(B)
PUSHJ P,BRNCH
POPJ P,
BRF: PUSHJ P,IFTCH
TRNN PS,(B)
PUSHJ P,BRNCH
POPJ P,
ORA: OR A
PUSHJ P,NZTST
HRRZ A,
POPJ P,
ASL: LSH 1
PUSHJ P,CNZTST
POPJ P,
AAND: AND A
PUSHJ P,NZTST
HRRZ A,
POPJ P,
EOR: XORI (A)
PUSHJ P,NZTST
HRRZ A,
POPJ P,
LSR: TRZ PS,NBIT∨ZBIT∨CBIT
TRNE 1
TRO PS,CBIT
LSH -1
SKIPN
TRO PS,ZBIT
POPJ P,
ROL: LSH 1
TRNE PS,CBIT
TRO 1
PUSHJ P,CNZTST
POPJ P,
INC: AOJ
TRZ ZHW
PUSHJ P,NZTST
POPJ P,
DEC: SOSGE
HRRZI NEG1
PUSHJ P,NZTST
POPJ P,
ADDER: TRZ PS,VBIT
TRNN NBIT
JRST POS
PUSHJ P,ALUX
TRNE B,NBIT
TRNE PS,NBIT
POPJ P,
JRST OV
POS: PUSHJ P,ALUX
TRNN B,NBIT
TRNN PS,NBIT
POPJ P,
OV: TRO PS,VBIT
POPJ P,
ALUX: ADDI (B)
TRNE PS,CBIT
AOJ
PUSHJ P,CNZTST
POPJ P,
SUBER: TRC NEG1
PUSHJ P,ADDER
POPJ P,
ADC: HRRZI B,(A)
PUSHJ P,ADDER
HRRZ A,
POPJ P,
SBC: HRRZI B,(A)
PUSHJ P,SUBER
HRRZ A,
POPJ P,
CMPER: TRC NEG1
TRO PS,CBIT
PUSHJ P,ALUX
POPJ P,
CMP: HRRZI B,(A)
PUSHJ P,CMPER
POPJ P,
CPX: HRRZI B,(X)
PUSHJ P,CMPER
POPJ P,
CPY: HRRZI B,(Y)
PUSHJ P,CMPER
POPJ P,
INSTBL:
[ PUSHJ P,PUPC
PUSHJ P,@INSTBL+PHP
TRO PS,BRKBIT∨IBIT
HRRZI PC,IRQV
PUSHJ P,@INSTBL+JMPAB
POPJ P,]
[ PUSHJ P,INDX
PUSHJ P,ORA
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ZPAGE
PUSHJ P,ORA
POPJ P,]
[ PUSHJ P,ZPAGE
PUSHJ P,ASL
PUSHJ P,MEMDP
POPJ P,]
UDO
[ HRRZI (PS)
PUSHJ P,PUTCH
POPJ P,]
[ PUSHJ P,IFTCH
PUSHJ P,ORA
POPJ P,]
[ HRRZI (A)
PUSHJ P,ASL
HRRZ A,
POPJ P,]
UDO
UDO
[ PUSHJ P,ABS
PUSHJ P,ORA
POPJ P,]
[ PUSHJ P,ABS
PUSHJ P,ASL
PUSHJ P,MEMDP
POPJ P,]
UDO
[ HRRZI B,NBIT
PUSHJ P,BRF
POPJ P,]
[ PUSHJ P,INDY
PUSHJ P,ORA
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ZPX
PUSHJ P,ORA
POPJ P,]
[ PUSHJ P,ZPX
PUSHJ P,ASL
PUSHJ P,MEMDP
POPJ P,]
UDO
[ TRZ PS,CBIT
POPJ P,]
[ PUSHJ P,ABY
PUSHJ P,ORA
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ABX
PUSHJ P,ORA
POPJ P,]
[ PUSHJ P,ABX
PUSHJ P,ASL
PUSHJ P,MEMDP
POPJ P,]
UDO
[ HRRZI 1(PC)
LSH -10
PUSHJ P,PUTCH
HRRZI 1(PC)
PUSHJ P,PUTCH
PUSHJ P,@INSTBL+JMPAB
POPJ P,]
[ PUSHJ P,INDX
PUSHJ P,AAND
POPJ P,]
UDO
UDO
[ PUSHJ P,ZPAGE
PUSHJ P,BIT
POPJ P,]
[ PUSHJ P,ZPAGE
PUSHJ P,AAND
POPJ P,]
[ PUSHJ P,ZPAGE
PUSHJ P,ROL
PUSHJ P,MEMDP
POPJ P,]
UDO
[ PUSHJ P,@INSTBL+PUL
HRRZ PS,
POPJ P,]
[ PUSHJ P,IFTCH
PUSHJ P,AAND
POPJ P,]
[ HRRZI (A)
PUSHJ P,ROL
HRRZ A,
POPJ P,]
UDO
[ PUSHJ P,ABS
PUSHJ P,BIT
POPJ P,]
[ PUSHJ P,ABS
PUSHJ P,AAND
POPJ P,]
[ PUSHJ P,ABS
PUSHJ P,ROL
PUSHJ P,MEMDP
POPJ P,]
UDO
[ HRRZI B,NBIT
PUSHJ P,BRT
POPJ P,]
[ PUSHJ P,INDY
PUSHJ P,AAND
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ZPX
PUSHJ P,AAND
POPJ P,]
[ PUSHJ P,ZPX
PUSHJ P,ROL
PUSHJ P,MEMDP
POPJ P,]
UDO
[ TRO PS,CBIT
POPJ P,]
[ PUSHJ P,ABY
PUSHJ P,AAND
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ABX
PUSHJ P,AAND
POPJ P,]
[ PUSHJ P,ABX
PUSHJ P,ROL
PUSHJ P,MEMDP
POPJ P,]
UDO
[ PUSHJ P,PUL
HRRZ PS,
PUSHJ P,RTS
POPJ P,]
[ PUSHJ P,INDX
PUSHJ P,EOR
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ZPAGE
PUSHJ P,EOR
POPJ P,]
[ PUSHJ P,ZPAGE
PUSHJ P,LSR
PUSHJ P,MEMDP
POPJ P,]
UDO
[ HRRZI (A)
PUSHJ P,PUTCH
POPJ P,]
[ PUSHJ P,IFTCH
PUSHJ P,EOR
POPJ P,]
[ HRRZI (A)
PUSHJ P,LSR
HRRZ A,
POPJ P,]
UDO
[ PUSHJ P,AFTCH
HRRZI PC,(MA)
POPJ P,]
[ PUSHJ P,ABS
PUSHJ P,EOR
POPJ P,]
[ PUSHJ P,ABS
PUSHJ P,LSR
PUSHJ P,MEMDP
POPJ P,]
UDO
[ HRRZI B,VBIT
PUSHJ P,BRF
POPJ P,]
[ PUSHJ P,INDY
PUSHJ P,EOR
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ZPX
PUSHJ P,EOR
POPJ P,]
[ PUSHJ P,ZPX
PUSHJ P,LSR
PUSHJ P,MEMDP
POPJ P,]
UDO
[ TRZ PS,IBIT
POPJ P,]
[ PUSHJ P,ABY
PUSHJ P,EOR
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ABX
PUSHJ P,EOR
POPJ P,]
[ PUSHJ P,ABX
PUSHJ P,LSR
PUSHJ P,MEMDP
POPJ P,]
UDO
[ PUSHJ P,@INSTBL+PUL
HRRZ PC,
PUSHJ P,@INSTBL+PUL
LSH -8
OR PC,
POPJ P,]
[ PUSHJ P,INDX
PUSHJ P,ADC
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ZPAGE
PUSHJ P,ADC
POPJ P,]
UDO
UDO
[ PUSHJ P,@INSTBL+PUL
HRRZ A,
POPJ P,]
[ PUSHJ P,IFTCH
PUSHJ P,ADC
POPJ P,]
UDO
UDO
[ PUSHJ P,ABS
HRRZ PC,
AOJ MA,
PUSHJ P,MFTCH
LSH 10
OR PC,
PUSHJ P,@INSTBL+JMPAB
POPJ P,]
[ PUSHJ P,ABS
PUSHJ P,ADC
POPJ P,]
UDO
UDO
[ HRRZI B,VBIT
PUSHJ P,BRT
POPJ P,]
[ PUSHJ P,INDY
PUSHJ P,ADC
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ZPX
PUSHJ P,ADC
POPJ P,]
UDO
UDO
[ TRO PS,IBIT
POPJ P,]
[ PUSHJ P,ABY
PUSHJ P,ADC
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ABX
PUSHJ P,ADC
POPJ P,]
UDO
UDO
UDO
[ HRRZI B,(A)
PUSHJ P,STIX
POPJ P,]
UDO
UDO
[ HRRZI B,(Y)
PUSHJ P,STZ
POPJ P,]
[ HRRZI B,(A)
PUSHJ P,STZ
POPJ P,]
[ HRRZI B,(X)
PUSHJ P,STZ
POPJ P,]
UDO
[ HRRZI (Y)
PUSHJ P,DEC
HRRZ Y,
POPJ P,]
UDO
[ HRRZI (X)
PUSHJ P,NZTST
HRRZI A,(X)
POPJ P,]
UDO
[ HRRZI B,(Y)
PUSHJ P,STAB
POPJ P,]
[ HRRZI B,(A)
PUSHJ P,STAB
POPJ P,]
[ HRRZI B,(X)
PUSHJ P,STAB
POPJ P,]
UDO
[ HRRZI B,CBIT
PUSHJ P,BRF
POPJ P,]
[ HRRZI B,(A)
PUSHJ P,STIY
POPJ P,]
UDO
UDO
[ HRRZI B,(Y)
PUSHJ P,STZX
POPJ P,]
[ HRRZI B,(A)
PUSHJ P,STZX
POPJ P,]
[ HRRZI B,(X)
PUSHJ P,STZY
POPJ P,]
UDO
[ HRRZI (Y)
PUSHJ P,NZTST
HRRZI A,(Y)
POPJ P,]
[ HRRZI B,(A)
PUSHJ P,STABY
POPJ P,]
[ HRRZI SP,(X)
POPJ P,]
UDO
UDO
[ HRRZI B,(A)
PUSHJ P,STABX
POPJ P,]
UDO
UDO
[ PUSHJ P,LDIM
HRRZ Y,
POPJ P,]
[ PUSHJ P,LDIX
HRRZ A,
POPJ P,]
[ PUSHJ P,LDIM
HRRZ X,
POPJ P,]
UDO
[ PUSHJ P,LDZ
HRRZ Y,
POPJ P,]
[ PUSHJ P,LDZ
HRRZ A,
POPJ P,]
[ PUSHJ P,LDZ
HRRZ X,
POPJ P,]
UDO
[ HRRZI (A)
PUSHJ P,NZTST
HRRZI Y,(A)
POPJ P,]
[ PUSHJ P,LDIM
HRRZ A,
POPJ P,]
[ HRRZI (A)
PUSHJ P,NZTST
HRRZI X,(A)
POPJ P,]
UDO
[ PUSHJ P,LDAB
HRRZ Y,
POPJ P,]
[ PUSHJ P,LDAB
HRRZ A,
POPJ P,]
[ PUSHJ P,LDAB
HRRZ X,
POPJ P,]
UDO
[ HRRZI B,CBIT
PUSHJ P,BRT
POPJ P,]
[ PUSHJ P,LDIY
HRRZ A,
POPJ P,]
UDO
UDO
[ PUSHJ P,LDZX
HRRZ Y,
POPJ P,]
[ PUSHJ P,LDZX
HRRZ A,
POPJ P,]
[ PUSHJ P,LDZY
HRRZ X,
POPJ P,]
UDO
[ TRZ PS,VBIT
POPJ P,]
[ PUSHJ P,LDAB
HRRZ A,
POPJ P,]
[ HRRZI X,(SP)
POPJ P,]
UDO
[ PUSHJ P,LDABX
HRRZ Y,
POPJ P,]
[ PUSHJ P,LDABX
HRRZ A,
POPJ P,]
[ PUSHJ P,LDABY
HRRZ X,
POPJ P,]
UDO
[ PUSHJ P,IFTCH
PUSHJ P,CPY
POPJ P,]
[ PUSHJ P,INDX
PUSHJ P,CMP
POPJ P,]
UDO
UDO
[ PUSHJ P,ZPAGE
PUSHJ P,CPY
POPJ P,]
[ PUSHJ P,ZPAGE
PUSHJ P,CMP
POPJ P,]
[ PUSHJ P,ZPAGE
PUSHJ P,DEC
PUSHJ P,MEMDP
POPJ P,]
UDO
[ HRRZI (Y)
PUSHJ P,INC
HRRZ Y,
POPJ P,]
[ PUSHJ P,IFTCH
PUSHJ P,CMP
POPJ P,]
[ HRRZI (X)
PUSHJ P,DEC
HRRZ X,
POPJ P,]
UDO
[ PUSHJ P,ABS
PUSHJ P,CPY
POPJ P,]
[ PUSHJ P,ABS
PUSHJ P,CMP
POPJ P,]
[ PUSHJ P,ABS
PUSHJ P,DEC
PUSHJ P,MEMDP
POPJ P,]
UDO
[ HRRZI B,ZBIT
PUSHJ P,BRF
POPJ P,]
[ PUSHJ P,INDY
PUSHJ P,CMP
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ZPX
PUSHJ P,CMP
POPJ P,]
[ PUSHJ P,ZPX
PUSHJ P,DEC
PUSHJ P,MEMDP
POPJ P,]
UDO
[ TRZ PS,DBIT
POPJ P,]
[ PUSHJ P,ABY
PUSHJ P,CMP
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ABX
PUSHJ P,CMP
POPJ P,]
[ PUSHJ P,ABX
PUSHJ P,DEC
PUSHJ P,MEMDP
POPJ P,]
UDO
[ PUSHJ P,IFTCH
PUSHJ P,CPX
POPJ P,]
[ PUSHJ P,INDX
PUSHJ P,SBC
POPJ P,]
UDO
UDO
[ PUSHJ P,ZPAGE
PUSHJ P,CPX
POPJ P,]
[ PUSHJ P,ZPAGE
PUSHJ P,SBC
POPJ P,]
[ PUSHJ P,ZPAGE
PUSHJ P,INC
PUSHJ P,MEMDP
POPJ P,]
UDO
[ HRRZI (X)
PUSHJ P,INC
HRRZ X,
POPJ P,]
[ PUSHJ P,IFTCH
PUSHJ P,SBC
POPJ P,]
[ POPJ P,]
UDO
[ PUSHJ P,ABS
PUSHJ P,CPX
POPJ P,]
[ PUSHJ P,ABS
PUSHJ P,SBC
POPJ P,]
[ PUSHJ P,ABS
PUSHJ P,INC
PUSHJ P,MEMDP
POPJ P,]
UDO
[ HRRZI B,ZBIT
PUSHJ P,BRT
POPJ P,]
[ PUSHJ P,INDY
PUSHJ P,SBC
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ZPX
PUSHJ P,SBC
POPJ P,]
[ PUSHJ P,ZPX
PUSHJ P,INC
PUSHJ P,MEMDP
POPJ P,]
UDO
[ TRO PS,DBIT
POPJ P,]
[ PUSHJ P,ABY
PUSHJ P,SBC
POPJ P,]
UDO
UDO
UDO
[ PUSHJ P,ABX
PUSHJ P,SBC
POPJ P,]
[ PUSHJ P,ABX
PUSHJ P,INC
PUSHJ P,MEMDP
POPJ P,]
UDO
MEM: BLOCK 100000
END STAR